xyGitter

xyEbene

yzEbene

xzEbene

yzGitter

xyEbene

xzGitter

x_1 = 7 (slider from 0 to 20, step 1)
x_2 = 7 (slider from 0 to 20, step 1)
x_3 = 7 (slider from 0 to 20, step 1)
Tx = Sequence(Segment[(t, 0, -0.1), (t, 0, 0.1)], t, 1, x_1)
Ty = Sequence(Segment[(0, t, -0.1), (0, t, 0.1)], t, 1, x_2)
Tz = Sequence(Segment[(0, -0.1, t), (0, 0.1, t)], t, 1, x_3)
u = Vector((0, 0, 0), (x_1 + 1, 0, 0))
v = Vector((0, 0, 0), (0, x_2 + 1, 0))
w = Vector((0, 0, 0), (0, 0, x_3 + 1))
xyE, a, b, c, d = Polygon((0, 0, 0), (x_1, 0, 0), (x_1, x_2, 0), (0, x_2, 0))
yzE, e, f, g, h = Polygon((0, 0, 0), (0, x_2, 0), (0, x_2, x_3), (0, 0, x_3))
xzE, i, j, k, l = Polygon((0, 0, 0), (0, 0, x_3), (x_1, 0, x_3), (x_1, 0, 0))
xyGv = Sequence(Segment[(0, t, 0), (x_1, t, 0)], t, 1, x_2 - 1)
yzGv = Sequence(Segment[(0, t, 0), (0, t, x_3)], t, 1, x_2 - 1)
xyGh = Sequence(Segment[(t, 0, 0), (t, x_2, 0)], t, 1, x_1 - 1)
xzGv = Sequence(Segment[(t, 0, 0), (t, 0, x_3)], t, 1, x_1 - 1)
xzGh = Sequence(Segment[(0, 0, t), (x_1, 0, t)], t, 1, x_3 - 1)
yzGh = Sequence(Segment[(0, 0, t), (0, x_2, t)], t, 1, x_3 - 1)
m = true
o = true
p = true
q = true
r = true
s = true
n = true
A = (5, 0, 0)
B = (0, 6, 0)
C = (0, 0, 5)
E, c_1, a_1, b_1 = Polygon(A, B, C)
Ebene = Plane(A, B, C)
xySpur = IntersectionPaths(Ebene, xyEbene)
text1 = LaTeX(xySpur, true, true)